home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cdplay1a / frmabout.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-19  |  6KB  |  181 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   " Alpha CD"
  5.    ClientHeight    =   2265
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4050
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmAbout.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    LockControls    =   -1  'True
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   2265
  24.    ScaleWidth      =   4050
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "&Close"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   3000
  31.       TabIndex        =   0
  32.       Top             =   1800
  33.       Width           =   975
  34.    End
  35.    Begin VB.Label lblLink 
  36.       BackStyle       =   0  'Transparent
  37.       Caption         =   "http://developer.ecorp.net"
  38.       BeginProperty Font 
  39.          Name            =   "Tahoma"
  40.          Size            =   9.75
  41.          Charset         =   0
  42.          Weight          =   700
  43.          Underline       =   -1  'True
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       ForeColor       =   &H00FF0000&
  48.       Height          =   255
  49.       Left            =   120
  50.       MouseIcon       =   "frmAbout.frx":0442
  51.       MousePointer    =   99  'Custom
  52.       TabIndex        =   7
  53.       Top             =   1920
  54.       Width           =   3375
  55.    End
  56.    Begin VB.Label Label3 
  57.       BackStyle       =   0  'Transparent
  58.       Caption         =   "FREE Visual Basic Source Code"
  59.       BeginProperty Font 
  60.          Name            =   "Tahoma"
  61.          Size            =   8.25
  62.          Charset         =   0
  63.          Weight          =   700
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H00000000&
  69.       Height          =   375
  70.       Left            =   120
  71.       TabIndex        =   6
  72.       Top             =   1680
  73.       Width           =   2895
  74.    End
  75.    Begin VB.Label Label5 
  76.       BackStyle       =   0  'Transparent
  77.       Caption         =   "This product is freeware and may be distributed without regard for payment."
  78.       BeginProperty Font 
  79.          Name            =   "Tahoma"
  80.          Size            =   9.75
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H00800000&
  88.       Height          =   615
  89.       Left            =   120
  90.       TabIndex        =   5
  91.       Top             =   1080
  92.       Width           =   3855
  93.    End
  94.    Begin VB.Label Label2 
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "Alpha CD"
  97.       BeginProperty Font 
  98.          Name            =   "Copperplate Gothic Bold"
  99.          Size            =   26.25
  100.          Charset         =   0
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       ForeColor       =   &H00800000&
  107.       Height          =   615
  108.       Left            =   120
  109.       TabIndex        =   4
  110.       Top             =   120
  111.       Width           =   3255
  112.    End
  113.    Begin VB.Label Label1 
  114.       Alignment       =   1  'Right Justify
  115.       BackStyle       =   0  'Transparent
  116.       Caption         =   "Version"
  117.       ForeColor       =   &H00800000&
  118.       Height          =   255
  119.       Left            =   1920
  120.       TabIndex        =   3
  121.       Top             =   720
  122.       Width           =   855
  123.    End
  124.    Begin VB.Label lblVersion 
  125.       ForeColor       =   &H00800000&
  126.       Height          =   255
  127.       Left            =   2880
  128.       TabIndex        =   2
  129.       Top             =   720
  130.       Width           =   615
  131.    End
  132.    Begin VB.Label lblName 
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "Alpha CD"
  135.       BeginProperty Font 
  136.          Name            =   "Copperplate Gothic Bold"
  137.          Size            =   26.25
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       ForeColor       =   &H00E0E0E0&
  145.       Height          =   495
  146.       Left            =   240
  147.       TabIndex        =   1
  148.       Top             =   240
  149.       Width           =   4335
  150.    End
  151. Attribute VB_Name = "frmAbout"
  152. Attribute VB_GlobalNameSpace = False
  153. Attribute VB_Creatable = False
  154. Attribute VB_PredeclaredId = True
  155. Attribute VB_Exposed = False
  156. Option Explicit
  157. Private Sub ExecuteLink(ByVal sLinkTo As String)
  158. ' Execute the link to http://http://developer.ecorp.net
  159. ' (if possible)
  160.     On Error Resume Next
  161.     Dim lRet As Long
  162.     Dim lOldCursor As Long
  163.     lOldCursor = Screen.MousePointer
  164.     Screen.MousePointer = vbHourglass
  165.     lRet = ShellExecute(0, "open", sLinkTo, "", vbNull, SW_SHOWNORMAL)
  166.     If lRet >= 0 And lRet <= 0 Then
  167.         Screen.MousePointer = vbDefault
  168.         MsgBox "Error Opening Link to" & sLinkTo & vbCrLf & vbCrLf & Err.LastDllError, , "frmAbout::ExecuteLink"
  169.     End If
  170.     Screen.MousePointer = vbDefault
  171. End Sub
  172. Private Sub Command1_Click()
  173.     Unload Me
  174. End Sub
  175. Private Sub Form_Load()
  176.     lblVersion.Caption = App.Major & "." & App.Minor & "." & App.Revision
  177. End Sub
  178. Private Sub lblLink_Click()
  179.     ExecuteLink lblLink.Caption
  180. End Sub
  181.